home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g48.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  50 lines
  1. 100 ' G48 T.WAKAMATSU
  2. 110 DIM A(11),B(11),C(11),D(6145),E(6145)
  3. 120 FOR I=1 TO 11
  4. 130   A(I)=0:B(I)=0:C(I)=1
  5. 140 NEXT I
  6. 150 N=1:J=0:CLS
  7. 160 V=190:W=335:X=190:Y=330
  8. 170 D(0)=V:E(0)=W:D(1)=X:E(1)=Y
  9. 180 LINE (V,W)-(X,Y),PSET,1
  10. 190 P=1:GOSUB *LINE:P=-1:GOSUB *LINE
  11. 200 '-------------------------------
  12. 210 J=J+1:IF J=11 THEN 310
  13. 220 A(J)=A(J)+1
  14. 230 IF A(J)=2 THEN A(J)=0:GOTO 210
  15. 240 K=B(J)+C(J)
  16. 250 IF K=0 OR K=2 THEN C(J)=-C(J)
  17. 260 P=-C(J):B(J)=1:GOSUB *LINE
  18. 270 P=1:GOSUB *LINE:P=-1:GOSUB *LINE
  19. 280 J=1:GOTO 220
  20. 290 '-------------------------------
  21. 300 GOSUB *WAIT
  22. 310 C1=3:C2=2
  23. 320 FOR J=1 TO N
  24. 330  IF J=N/2+1   THEN C1=4:C2=5:GOSUB *WAIT
  25. 340  IF J=N/4*3+1 THEN C1=7:C2=6:GOSUB *WAIT
  26. 350  LINE (D(J-1),E(J-1))-(D(J),E(J)),PSET,C1
  27. 360  LINE (D(N-J+1),E(N-J+1))-(D(N-J),E(N-J)),PSET,C2
  28. 370 NEXT J
  29. 380 GOSUB *WAIT
  30. 390 FOR J=1 TO N/2
  31. 400  IF J=N/2+1   THEN C1=4:C2=5:GOSUB *WAIT
  32. 410  IF J=N/4*3+1 THEN C1=7:C2=1:GOSUB *WAIT
  33. 420  LINE (D(J-1),E(J-1))-(D(J),E(J)),PSET,0
  34. 430  LINE (D(N-J+1),E(N-J+1))-(D(N-J),E(N-J)),PSET,0
  35. 440 NEXT J
  36. 450 GOTO 560
  37. 460 '-------------------------------
  38. 470 *LINE
  39. 480    S=(Y-W)*P+X:T=(V-X)*P+Y
  40. 490    V=X:W=Y:X=S:Y=T:N=N+1:D(N)=X:E(N)=Y
  41. 500    LINE -(X,Y),PSET,1
  42. 510  RETURN
  43. 520 '-------------------------------
  44. 530 *WAIT
  45. 540    FOR D=1 TO 7800:NEXT D
  46. 550  RETURN
  47. 560 CLS
  48. 570 FOR D=1 TO 2000:NEXT D
  49. 580 CD PAUSE
  50.